home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00058_rightButBarScript.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  387 b   |  17 lines
  1. global gSceneObject
  2.  
  3. on mouseDown
  4.   startBuffering()
  5.   if the dragFlag of gSceneObject <> 1 then
  6.     if count(the stickerList of gSceneObject) < the maxStickers of gSceneObject then
  7.       set choice to buttonBarHandler(#Vertical, 6, 51, 5) + 12
  8.       if choice > 0 then
  9.         newSticker(gSceneObject, choice)
  10.       end if
  11.     else
  12.       beep(1)
  13.     end if
  14.   end if
  15.   flushBuffer()
  16. end
  17.